If Application.CutCopyMode <> 0 Then Exit Sub

     


R = Target.Row
c = Target.Column
If R > 1 And R < 19 And c < 15 Then
Range("RR").Interior.ColorIndex = xlNone
Range("FR").Interior.ColorIndex = 6
Range(Cells(R, 1), Cells(R, 15)).Interior.ColorIndex = 3
Else
Range("RR").Interior.ColorIndex = xlNone
Range("FR").Interior.ColorIndex = xlNone
End If

       R   
       C   
              19    15 
       RR        2   18    
       FR        =6    
              1  15   3    
 
(                 19   2   18)
      R      1  19 

      RR   
      FR   
   
                           
     
         
  
